home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / koalapad_programmers_toolkit_s1[koala_technologies_1984].nbz / tool kit (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  53 lines
  1. 5 REM     TOOL KIT
  2. 6 :
  3. 7 REM LOADS UTILITIES, TITLE SCREEN, AND MAIN MENU
  4. 8 :
  5. 10 ON A GOTO 57,62,130,240
  6. 38 PRINT"[147]":POKE 53280,6:POKE 53281,3:PRINTCHR$(144)
  7. 40 PRINTCHR$(147)
  8. 41 PRINT"      KOALA TECHNOLOGIES PRESENTS":PRINT:PRINT"                  THE"
  9. 42 PRINT:PRINT"    KOALAPAD PROGRAMMER'S TOOL KIT [146]":PRINT:PRINT
  10. 43 PRINT:PRINT:PRINT" THROUGHOUT THESE PROGRAMS:":PRINT
  11. 45 PRINT"    THE LEFT BUTTON MOVES YOU FORWARD;"
  12. 47 PRINT"    THE RIGHT BUTTON MOVES YOU BACK;"
  13. 49 PRINT"    THE F7 KEY GETS THE MAIN MENU."
  14. 53 POKE 214,17:PRINT:PRINT"   LOADING KOALAPAD UTILITIES..."
  15. 55 A=1:LOAD"UTILITIES.BIN",8,1
  16. 57 POKE 214,19:PRINT:PRINT"   LOADING GRAPHICS TOOLS..."
  17. 60 A=2:LOAD"GRAPHICS.BIN",8,1
  18. 62 POKE 214,21:PRINT:PRINT"   LOADING TITLE PICTURE..."
  19. 80 :
  20. 100 F$=CHR$(129)+"PIC "
  21. 110 FF$=F$+"A TOOLKIT "
  22. 120 A=3:LOAD FF$,8,1
  23. 125 :
  24. 126 :
  25. 130 REM DEFINE AND SET COMMON GRAPHICS VARIABLES
  26. 131 REM SEE DISCUSSION OF "TURNING ON AND OFF THE HI-RES SCREEN" IN MANUAL.
  27. 132 :
  28. 133 :
  29. 135 BA=49191:SA=49192:CA=49193:SS=49194:CH=49195
  30. 140 POKE BA,3:REM VIDEO BANK 0
  31. 150 POKE SA,16:REM COLOR MEMORY START WITHIN BANK
  32. 160 POKE CA,8 :REM BIT MAP MEMORY LOCATION WITHIN BANK
  33. 170 POKE SS,4 :REM COLOR MEMORY SCREEN START (HI BYTE)
  34. 180 POKE CH,32 :REM BIT MAP SCREEN START (HI BYTE)
  35. 190 SYS 49394 :REM DISPLAY PICTURE
  36. 191 POKE53281,0
  37. 195 :
  38. 196 :
  39. 200 A=4:FF$=F$+"MAIN MENU "
  40. 210 LOAD FF$,8,1
  41. 220 POKE 34578,0
  42. 230 POKE53281,0
  43. 240 POKE BA,0
  44. 250 POKE SA,48
  45. 260 POKE CA,8
  46. 270 POKE SS,204
  47. 280 POKE CH,224
  48. 290 SYS 49394 :REM DISPLAY MENU PICTURE
  49. 291 POKE53281,0
  50. 300 POKE 46,29:POKE48,29:POKE 50,29
  51. 310 LOAD"MENU",8
  52. 320 PRINT"RRRRRRRRRRRRRRRR"
  53.